home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19950528-19950726 / 000080_news@columbia.edu_Wed Jun 7 15:20:31 1995.msg < prev    next >
Internet Message Format  |  2020-01-01  |  4KB
  1. Received: from apakabar.cc.columbia.edu by watsun.cc.columbia.edu with SMTP id AA14957
  2.   (5.65c+CU/IDA-1.4.4/HLK for <kermit.misc@watsun.cc.columbia.edu>); Wed, 7 Jun 1995 11:20:39 -0400
  3. Received: by apakabar.cc.columbia.edu id AA12736
  4.   (5.65c+CU/IDA-1.4.4/HLK for kermit.misc@watsun); Wed, 7 Jun 1995 11:20:37 -0400
  5. Path: news.columbia.edu!watsun.cc.columbia.edu!fdc
  6. From: fdc@watsun.cc.columbia.edu (Frank da Cruz)
  7. Newsgroups: comp.protocols.kermit.misc
  8. Subject: Re: Kermit as data-entry clerk
  9. Date: 7 Jun 1995 15:20:31 GMT
  10. Organization: Columbia University, New York City
  11. Lines: 87
  12. Message-Id: <3r4g3v$cdr@apakabar.cc.columbia.edu>
  13. References: <3r2avh$cdm@cmhcsys.cmhcsys.com>
  14. Nntp-Posting-Host: watsun.cc.columbia.edu
  15. Keywords: kermit variables
  16. Apparently-To: kermit.misc@watsun.cc.columbia.edu
  17.  
  18. In article <3r2avh$cdm@cmhcsys.cmhcsys.com>,
  19. Chuck Stickelman <chuck@cmhcsys.com> wrote:
  20. : We have a customer how needs to get information from our proprietary
  21. : database into a county-wide system.  Unfortunately, the county-wide
  22. : system does not allow batch transfers of any kind. Therefore, the 
  23. : customer has been paying a full-time employee to run a couple of
  24. : reports on our system and then re-key the data into the other database.
  25. : Needless to say, this is less than ideal.
  26. : 
  27. : I proposed that we output the data to a DOS file in a format Kermit
  28. : would like: {field data    }{more field data   }{even more...} etc.
  29. : No problem.  Then I thought we could use Kermit's 'read', 'assign'
  30. : and 'output' commands to fake the remote system into thinking a real
  31. : -live human was on the other end.  Something like:
  32. : 
  33. :  define parse assign \%a \%1, assign \%b \%2, assign \%c \%3, ...
  34. :  open somefile.dat
  35. :  read \%z
  36. :  parse \%z
  37. :  output \%a
  38. :  output \%b
  39. :  output \%c
  40. :  ...
  41. : 
  42. : However, the records in somefile.dat have too many fields (>35 in one
  43. : instance) and I'm running out of both temporary and permanent variables.
  44. : I've read the relevant pages in "Using MS-KERMIT" and understand that
  45. : there are 10 temporary variables (0-9) and 26 permanent variables (a-z),
  46. : but wonder if there's anyway I can "easily" change that or get around
  47. : those limitations!?
  48. : 
  49. Yes, there are many ways to do this.  First, two observations:
  50.  
  51.  1. If you are providing Kermit software to your customers, you have to
  52.     obtain written permission from the Office of Kermit Development and
  53.     Distribution at Columbia University.  Email to kermit@columbia.edu
  54.     for further information.
  55.  
  56.  2. You'll need version 3.14.
  57.  
  58. So you are saying that you can't do the obvious thing, namely:
  59.  
  60.     open somefile.dat
  61. :loop    read \%z
  62.     if fail goto done
  63.     output \%z           ; or "output \%z\13", etc, ...
  64.     goto loop
  65. :done
  66.  
  67. In other words, you have to send one "word" at a time?  One solution
  68. that suggests itself immediately is to create the original file in a
  69. different format, e.g. one field per line.  You just have to think up
  70. some convention for distinguishing between a field boundary and a record
  71. boundary.  (It's not clear to me from your description how you were
  72. doing this in the first place -- I don't see any kind of field or record
  73. delimiters in your example.)
  74.  
  75. MS-DOS Kermit 3.14 includes a full complement of string manipulation
  76. functions -- index, substring, replace, etc, that you should be able to
  77. use creatively to solve your problem.  For example (assuming fields are
  78. delimited by a single space):
  79.  
  80. :RECORDS
  81.   read \%a                           ; read a record
  82.   if fail goto done                  ; no more, we're finished
  83.  
  84. :FIELDS
  85.   assign \%j \flength(\%a)           ; length of record
  86.   if > \%j 0 goto gotfield           ; no (more) fields, get another
  87.   output ???                         ; send your record delimiter here
  88.   goto records                       ; go get next record
  89.  
  90. :GOTFIELD
  91.   assign \%i \findex({ },\%a,1)      ; got record, find first space
  92.   decrement \%i
  93.   if < \%i 1 asg \%i \%j             ; no spaces, must be last field
  94.   assign \%f \fsubstr(\%a,1,\%i)     ; get the field
  95.   output \%f                         ; send it (and add field delimiter)
  96.   increment \%i 2                    ; point past it
  97.   assign \%a \fsubstr(\%a,\%i)       ; and go get next field
  98.   goto fields
  99.  
  100. :DONE
  101.  
  102. See KERMIT.UPD for more info about string functions.
  103.  
  104. - Frank